home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / disk_425.arc / RANDG.LIB < prev    next >
Text File  |  1985-04-03  |  383b  |  20 lines
  1.  
  2. { -> 35 }
  3. function randg(mean,sigma: real): real;
  4.  
  5. { produce random numbers with a gaussian distribution }
  6. { MEAN and SIGMA are supplied by calling program }
  7. { function RANDOM is required !!! }
  8.  
  9. var
  10.  i    : integer;
  11.  sum    : real;
  12.  
  13. begin
  14.   sum:=0.0;
  15.   for i:=1 to 12 do
  16.     sum:=sum+random(0);
  17.   randg:=(sum-6)*sigma+mean
  18. end;    { function randg }
  19.  
  20.